home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00050_Script_50 < prev    next >
Text File  |  1999-03-07  |  928b  |  34 lines
  1. on enterFrame
  2.   global gxcompetitor, currentchartname, currentplane
  3.   global gxflip1, gxflip2, gxcity, compdrawplace
  4.   global cheraseflag
  5.   global defaultflag
  6.   set defaultflag = false  
  7.   
  8.   set cheraseflag = true
  9.   initcurrentplane
  10.   set compdrawplace = "maps"
  11.   -- erase competitor name and values
  12.   set the text of field "displane" = "No Competitor"
  13.   set the text of field "aacplanename" = "No Competitor"
  14.   set the text of field "aaaplanename" = currentplane
  15.   set gxcity = ""
  16.   set gxflip1 = 0
  17.   set gxflip2 = 0
  18.   repeat with sx = 5 to 17
  19.     set cx = the member of sprite sx
  20.     set the text of member cx = " "
  21.   end repeat
  22.   --  set currentplane = "Challenger 604"
  23.   set gxcompetitor = "No Competitor"
  24.   set currentchartname = "Range_maps"
  25.   getaircrafts   -- fill popup
  26. end
  27. on prepareframe
  28.   global gSubch, gpair, gsprt
  29.   set gSubch = 0
  30.   set gpair = 0
  31.   set gsprt = 0
  32.   clearpups
  33. end
  34.